home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 23
/
Amiga Format AFCD23 (Feb 1998, Issue 107).iso
/
-seriously_amiga-
/
shareware
/
workbench
/
amigreet
/
install
< prev
next >
Wrap
Text File
|
1997-12-01
|
5KB
|
169 lines
;
;
; AmiGreet - v1.3 Install Script
; - By Gareth 'Gaz' Murfin
; - (11.12.97)
;
;
;Program name & by Gareth Murfin Scrolling.
(procedure WAITX (set X 1) ( (while (< X 100) (set X (+ X 1)) ) ) )
(working "\n\n\n\n\n\n\n\n\n\n\n\n\nAmiGreet v1.3") (WAITX)
(complete 0)
(working "\n\n\n\n\n\n\n\n\n\n\n\nAmiGreet v1.3") (WAITX)
(complete 1)
(working "\n\n\n\n\n\n\n\n\n\n\nAmiGreet v1.3") (WAITX)
(complete 2)
(working "\n\n\n\n\n\n\n\n\n\nAmiGreet v1.3") (WAITX)
(complete 3)
(working "\n\n\n\n\n\n\n\n\nAmiGreet v1.3") (WAITX)
(complete 4)
(working "\n\n\n\n\n\n\n\nAmiGreet v1.3") (WAITX)
(complete 5)
(working "\n\n\n\n\n\n\nAmiGreet v1.3") (WAITX)
(complete 6)
(working "\n\n\n\n\n\nAmiGreet v1.3") (WAITX)
(complete 7)
(working "\n\n\n\n\nAmiGreet v1.3") (WAITX)
(complete 8)
(working "\n\n\n\nAmiGreet v1.3") (WAITX)
(complete 9)
(working "\n\n\nAmiGreet v1.3") (WAITX)
(complete 10)
(working "\n\nAmiGreet v1.3") (WAITX)
(complete 11)
(working "\n\nAmiGreet v1.3") (WAITX)
(complete 12)
(working "\nAmiGreet v1.3") (WAITX)
(complete 13)
(working "\nAmiGreet v1.3") (WAITX)
(complete 14)
(working "\nAmiGreet v1.3\n\n\n\n\n\n\n\n\n\n\n\nby") (WAITX)
(complete 15)
(working "\nAmiGreet v1.3\n\n\n\n\n\n\n\n\n\n\nby") (WAITX)
(complete 16)
(working "\nAmiGreet v1.3\n\n\n\n\n\n\n\n\n\nby") (WAITX)
(complete 17)
(working "\nAmiGreet v1.3\n\n\n\n\n\n\n\n\nby") (WAITX)
(complete 18)
(working "\nAmiGreet v1.3\n\n\n\n\n\n\n\nby") (WAITX)
(complete 19)
(working "\nAmiGreet v1.3\n\n\n\n\n\n\nby") (WAITX)
(complete 20)
(working "\nAmiGreet v1.3\n\n\n\n\n\nby") (WAITX)
(complete 21)
(working "\nAmiGreet v1.3\n\n\n\n\nby") (WAITX)
(complete 22)
(working "\nAmiGreet v1.3\n\n\n\nby") (WAITX)
(complete 22)
(working "\nAmiGreet v1.3\n\n\nby") (WAITX)
(complete 23)
(working "\nAmiGreet v1.3\n\n\nby") (WAITX)
(complete 24)
(working "\nAmiGreet v1.3\n\n\nby\n\n\n\n\n\n\n\n\nGareth Murfin.") (WAITX)
(complete 25)
(working "\nAmiGreet v1.3\n\n\nby\n\n\n\n\n\n\n\nGareth Murfin.") (WAITX)
(complete 26)
(working "\nAmiGreet v1.3\n\n\nby\n\n\n\n\n\n\nGareth Murfin.") (WAITX)
(complete 27)
(working "\nAmiGreet v1.3\n\n\nby\n\n\n\n\n\nGareth Murfin.") (WAITX)
(complete 28)
(working "\nAmiGreet v1.3\n\n\nby\n\n\n\n\nGareth Murfin.") (WAITX)
(complete 29)
(working "\nAmiGreet v1.3\n\n\nby\n\n\n\nGareth Murfin.") (WAITX)
(complete 30)
(working "\nAmiGreet v1.3\n\n\nby\n\n\nGareth Murfin.") (WAITX)
(message "\n\n\nAmiGreet v1.3\n\n\nby\n\n\nGareth Murfin.") (WAITX)
(welcome)
;End of Introduction.
;
(message
"\n\nWelcome to AmiGreet v1.3\nBy Gareth Murfin."
"\n\nThis installer will setup AmiGreet so that it will"
"\nrun automatically on each bootup."
"\n\nAny old versions of AmiGreet found will be deleted."
"\n\n\neMail.........................gazy@globalnet.co.uk"
"\nURL........http://www.users.globalnet.co.uk/~gazy/"
"\nIRC................SpryNet.US.GalaxyNet.Org #AmIRC"
)
(complete 40)
;
;
;
;
(message
"\n AmiGreet® is © by Gareth Murfin 1996-97"
"\n C< Alpha Software"
"\n\n\n\n Contact Gareth Murfin for more great software :-"
"\n\n\n URL......http://www.users.globalnet.co.uk/~gazy/"
"\n eMail.......................gazy@globalnet.co.uk"
"\n IRC..............SpryNet.Us.GalaxyNet.Org #AmIRC"
)
;
(complete 42)
(set #DOC
(askoptions
(prompt "Select version of AmiGreet to Install")
(help (cat @askoptions-help))
(default 1)
(choices "English" "Polish" "German")
)
)
; *** Copy Doc(s) to given path ***
(if (IN #DOC 0) (copyfiles (source "AmiGreet[UK]") (dest "SYS:WbStartup")))
(if (IN #DOC 0) (copyfiles (source "AmiGreet[UK].info") (dest "SYS:WbStartup")))
;Copy UK AmiGreet & icon
(if (IN #DOC 1) (copyfiles (source "AmiGreet[PO]") (dest "SYS:WbStartup")))
(if (IN #DOC 1) (copyfiles (source "AmiGreet[PO].info") (dest "SYS:WbStartup")))
;Copy Polish AmiGreet & icon
(if (IN #DOC 2) (copyfiles (source "AmiGreet[DE]") (dest "SYS:WbStartup")))
(if (IN #DOC 2) (copyfiles (source "AmiGreet[DE].info") (dest "SYS:WbStartup")))
;Copy German AmiGreet & icon
(complete 50)
;---------------------
(complete 80)
(copyfiles
(source "c/Say")
(dest "C:")
(all)
)
;---------------------
;
;---------------------
(complete 85)
(copyfiles
(source "devs/narrator.device")
(dest "DEVS:")
(all)
)
;---------------------
(complete 90)
(copyfiles
(source "libs/translator.library")
(dest "LIBS:")
(all)
)
;---------------------
(delete "SYS:WbStartup/AmiGreet" (all))
(delete "SYS:WbStartup/AmiGreet.info" (all))
;
(complete 95)
(message
"\n\n AmiGreet v1.3 was installed successfully!"
"\n Reboot your Amiga to hear AmiGreet talk to you!"
"\n\n\n** Alpha Software - Contact details **"
"\n URL......http://www.users.globalnet.co.uk/~gazy/"
"\n eMail.......................gazy@globalnet.co.uk"
"\n IRC..............SpryNet.Us.GalaxyNet.Org #AmIRC"
"\n\n Enjoy AmiGreet v1.3..."
)
(complete 100)